home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
misc
/
math
/
MathFX_src.lha
/
fxsvpa.c
< prev
next >
Wrap
C/C++ Source or Header
|
1995-12-20
|
1KB
|
42 lines
/* Sets the edges of the viewport to the specified absolute */
/* coordinates (mm), measured with respect to the current subpage */
/* boundaries */
#include "mathfx.h"
void fxsvpa(xmin,xmax,ymin,ymax)
float xmin, xmax, ymin, ymax;
{
int nx, ny, cs;
float sxmin, symin;
float spdxmi, spdxma, spdymi, spdyma;
float vpdxmi, vpdxma, vpdymi, vpdyma;
int level;
glev(&level);
if (level<1) fatal("Please call FXSTAR before calling FXSVPA.");
if((xmin>=xmax)||(ymin>=ymax)||(xmin<0.)||(ymin<0.))
fatal("Invalid limits in PLSVPA.");
gsub(&nx,&ny,&cs);
if ((cs<=0) || (cs>(nx*ny)))
fatal("Please call FXADV or FXENV to go to a subpage.");
gspd(&spdxmi,&spdxma,&spdymi,&spdyma);
sxmin = dcmmx(spdxmi);
symin = dcmmy(spdymi);
vpdxmi = mmdcx(sxmin+xmin);
vpdxma = mmdcx(sxmin+xmax);
vpdymi = mmdcy(symin+ymin);
vpdyma = mmdcy(symin+ymax);
svpd(vpdxmi,vpdxma,vpdymi,vpdyma);
svpp(dcpcx(vpdxmi),dcpcx(vpdxma),dcpcy(vpdymi),dcpcy(vpdyma));
sclp(dcpcx(vpdxmi),dcpcx(vpdxma),dcpcy(vpdymi),dcpcy(vpdyma));
slev(2);
}